home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / assemblr / library / screen / uniform / ufas013.asm < prev    next >
Assembly Source File  |  1993-07-28  |  2KB  |  81 lines
  1. ; MASM/ MS Quick ASM / Turbo ASM
  2. ; ufas013.ASM
  3.  
  4. UFCALL MACRO OKZ, OFN, OFL, ORETC, OSM, ODAT
  5.         lea   bx,OKZ             ;; Offset FKZ
  6.         push  bx
  7.         lea   bx,OFN             ;; Offset format
  8.         push  bx
  9.         lea   bx,OFL             ;; Offset 1. field
  10.         push  bx
  11.         lea   bx,ORETC           ;; Offset RETC
  12.         push  bx
  13.         lea   bx,OSM             ;; Offset SM
  14.         push  bx
  15.         lea   bx,ODAT            ;; Offset Daten
  16.         push  bx
  17.         call  UNIF               ;; Call UNIF
  18.         add   sp,12
  19.         ENDM
  20.  
  21.        DOSSEG
  22.        TITLE    ORDER
  23. EXTRN  UNIF:NEAR
  24. EXTRN  MOUSEON:NEAR
  25. EXTRN  MOUSEOFF:NEAR
  26.        .MODEL   SMALL   
  27.        .STACK   1024h
  28.        .DATA
  29. ; variable fields
  30. INCLUDE order.mac
  31. INCLUDE message.mac
  32. INCLUDE UFAS01.mac
  33. fm1     DB  "order   "
  34. fm2     DB  "message "
  35.  
  36.         .CODE
  37.  
  38.         mov   ax,@data
  39.         mov   ds,ax
  40.         push  ds
  41.         pop   es
  42. ; initialize mouse
  43.     call  MOUSEON
  44.         mov   word ptr FKZ,0
  45.         UFCALL FKZ, FMT, FMT, RETC, SM, Aorder
  46. ; clear screen and display new format
  47.         mov   word ptr FKZ,1
  48.     mov   word ptr SM,0
  49.     mov   word ptr RETC,99
  50.        order:
  51.         UFCALL FKZ, fm1, product, RETC, SM, Aorder
  52. ; same format when ESC
  53.         cmp   word ptr RETC,99
  54.         jne   no99   
  55.         mov   word ptr FKZ,3
  56.     mov   word ptr RETC,22
  57.         jmp   order
  58. ; program end when F10
  59.        no99:
  60.         cmp   word ptr RETC,110
  61.         je    ende
  62. ; display empty format
  63.         mov   word ptr FKZ,4 
  64.     mov   word ptr RETC,99
  65.         UFCALL FKZ, fm2, FMT, RETC, SM, Amessage
  66. ; display new format without clear screen
  67.         mov   word ptr FKZ,2
  68.     mov   word ptr RETC,99
  69.         jmp   order
  70. ; display saved screen
  71.        ende:
  72.         mov   word ptr FKZ,5
  73.         UFCALL FKZ, FMT, FMT, RETC, SM, Aorder
  74.      PR_ENDE: 
  75. ; hide mouse
  76.     call   MOUSEOFF
  77.         mov    ah,4ch 
  78.         mov    al,0h
  79.     int    21h
  80.         END
  81.